1 GOTO 100
2 REM * * *                                            BASIC - CORNER:
3 REM        BILDSCHIRMSPEICHER
4 REM            VERSCHIEBEN                                              * * *
5 POKE53280,0:  REM RAHMENFARBE SCHWARZ
6 POKE53281,0:  REM RAHMENFARBE SCHWARZ
7 POKE53272,21: REM GROSS/GRAFIK-FONT                       EINSCHALTEN
8 POKE648,1024/256: REM SCREEN 1 EIN
9 POKE53272,(PEEK(53272)AND15)OR          (1024/1024)*16:REM SCREEN 1 ANZEIGEN
10 PRINT"[147]DU SIEHST NUN DEN ERSTEN"
11 PRINT"[176][192][192][201]  [201]     [213]         [174]
12 [153]"(null)  (null)  (null)     (null)         (null)
13 PRINT"[221]  [221]  [221]     [221]         [221]
14 [153]"-TANTAN  (null)(null)  (null)TANTAN< (null)TANTAN ORTANTAN -TANTAN^ (null) ^OR ORTAN=TAN^
15 PRINT"[221]  [221] [221][221]  [221]  [221] [221]   [221]   [221]  [221] [221] [171][189] [221] [221] [221]
16 [153]"(null)  (null) (null)(null)  (null)  (null) MID$TANTANRIGHT$(null)   (null)  (null) (null) (null)  (null) (null) (null)
17 PRINT"[173][192][192][203][192][189][202][192] [173][192][192][189] [213][192][192][203][202][192][192] [189]  [173] [189] [189]  [189] [177] [173]
18 [153]"WAEHREND DER 2. AUFGEBAUT WIRD."
19 [153]"1"
30 [151]648,15360[173]256: [143] SCREEN 2 EIN
40 [153]"LOAD":[129]I[178]1[164]33:[153]"DIGITAL TALK ";:[130]:[153]"LITTLE JOHN ";
41 [129]I[178]1[164]33:[153]"DIGITAL TALK ";:[130]
51 [153]"2"
55 [153]" TASTE DRUECKEN ! "
56 [153]"                  "
57 [153]"                  "
58 [129]I[178]55296[164]55295[170]999:[151]I,[181](15[172][187](0))[170]1:[130]
59 [143]  * * 2. SCREEN FERTIG ERSTELLT,          NUN 2. SCREEN ANZEIGEN... * *
60 [151]53272,([194](53272)[175]15)[176](15360[173]1024)[172]16
61 [129]K[178]1[164]10:[151]198,0:[146]198,1
62 [151]53272,([194](53272)[175]15)[176](1024[173]1024)[172]16
63 [151]198,0:[146]198,1
64 [151]53272,([194](53272)[175]15)[176](15360[173]1024)[172]16
65 [130]
68 [151]53272,([194](53272)[175]15)[176](1024[173]1024)[172]16
69 [151]648,1024[173]256:[137]100
70 [151]53280,5:[151]53281,13
71 [153]"LOADSTOPWENIGER VARIABLEN -> MEHR SPEICHER":[129]I[178]1[164]300:[130]
72 [151]53280,13:[151]53281,3:[129]I[178]1[164]300:[130]
73 [151]53280,3:[151]53281,7:[129]I[178]1[164]300:[130]
74 [151]53280,7:[151]53281,8:[129]I[178]1[164]300:[130]
75 [153]"WENIGER  -> MEHR ":[129]I[178]1[164]300:[130]
76 [153]""[184](0)[170]2[174]16"BYTES FREE (DERZEIT!)":[151]198,0:[146]198,1
77 A[178]1:B[178]2:C[178]3:D[178]4:E[178]5:[153]"A="A"B="B"C="C"D="D"E="E:[151]198,0:[146]198,1
78 [153]""[184](0)[170]2[174]16"BYTES FREE (DERZEIT!)":[151]198,0:[146]198,1
79 [129]I[178]49152[164]49160:[151]I,[181](255[172][187](0))[170]1:[153]I,[194](I):[153]"";:[130]
80 [153]""[184](0)[170]2[174]16"BYTES FREE (DERZEIT!)":[151]198,0:[146]198,1
88 [151]198,0:[146]198,1
89 [137]100
100 [151]53280,11:[151]53281,12:[153]"LOADSTOP":X[178]0:[151]648,4
101 [153]"LOAD":[153][163]13[171]X)"                    WAIT "
102 [153][163]13[171]X)"         WAIT "
103 [153][163]13[171]X)"             WAIT "
104 [153][163]13[171]X)"          WAIT "
105 [153][163]13[171]X)"             WAIT "
106 [153][163]13[171]X)"        WAIT "
107 [153][163]13[171]X)"                    WAIT "
110 X[178]X[170]1:[129]J[178]1[164]100:[130]:[139]X[179]13[167]101
111 [153][163]22)"ONONONONONCORNER DEMO"
112 [153][163]22)"BY LITTLE JOHN"
115 [153]"1WAITONCMDTOBILDSCHIRMSPEICHER VERSCHIEBEN"
116 [153]"2WAITONCMDTOWENIGER VARIABLEN"
117 [153]"3WAITONCMDTOENDE"
120 [151]198,0:[146]198,1
121 [161]Z$
122 [139]Z$[178]"1"[167]130
123 [139]Z$[178]"2"[167]131
124 [139]Z$[178]"3"[167][128]
125 [137]120
130 [153]"*NEWRNDCMDCMDCMDGETWAITGETCMDCMDCMDLOGNEWWAITCOS":[129]I[178]1[164]500:[130]:[137]5
131 [153]"*NEWRNDCMDCMDCMDGETWAITGETCMDCMDCMDLOGNEWWAITCOS":[129]I[178]1[164]500:[130]:[137]70
132 [153]"*NEWRNDCMDCMDCMDGETWAITGETCMDCMDCMDLOGNEWWAITCOS":[129]I[178]1[164]500:[130]:[137]70